home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / mus / midi / MusicXRexxMacs.lha / macros / chords / minor sixth.mxe < prev    next >
Text File  |  1997-02-05  |  974b  |  51 lines
  1. /* © Dick Doyle */
  2.  
  3. options results                    
  4.  
  5.  
  6.  
  7. MXRADIO "Selected Notes,All Notes"        
  8.  
  9.  
  10. MXREQUEST "MINOR SIXTH,DO IT" 
  11. if result == 0 then exit            
  12.  
  13. MXPOINTER "sleepy"                
  14.  
  15. MXVALUE 1                    
  16. if result == 0 then BEGINSCAN 'selected'
  17. else BEGINSCAN 'all'                
  18.  
  19. if result ~= 0 then do forever            
  20.  
  21.   NEXTEVENT                    
  22.   if result == 0 then break
  23.  
  24.   if EVENT.TYPE == 'NOTE' then do        
  25.     newval = EVENT.NUM + 3
  26.     if newval < 0 then newval = newval + 128
  27.     if newval > 127 then newval = newval - 128
  28.     EVENT.NUM = newval
  29.     ADDEVENT
  30.   end
  31.   
  32.    if EVENT.TYPE == 'NOTE' then do        
  33.     newval = EVENT.NUM + 4
  34.     if newval < 0 then newval = newval + 128
  35.     if newval > 127 then newval = newval - 128
  36.     EVENT.NUM = newval
  37.     ADDEVENT
  38.   end
  39.  
  40.   if EVENT.TYPE == 'NOTE' then do        
  41.     newval = EVENT.NUM + 2
  42.     if newval < 0 then newval = newval + 128
  43.     if newval > 127 then newval = newval - 128
  44.     EVENT.NUM = newval
  45.     ADDEVENT
  46.   end  
  47. end
  48. ENDSCAN                        
  49.  
  50. MXPOINTER "normal"                
  51. exit